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Outline 
> F#: a quick orientation via a demo 


> F#: orthogonal, simple features 


> F#: co-operates in the context of .NET 


An ML-F# Orientation 


> DEMO 


> 1. Write a symbolic differentiator 

> 2. Write an evaluation function 

> 3. Make it extensible with new operators 
> 4. Display sample plots on a form 

> 5. Use the differentiator from СЕ 
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(9 Sample rt загсе тие 
open system 


type espe = 
T sus of expe * expe 
| Broa ot expe * expe 
| const of system. Dole 
| Var of sering 


lat eval env expe = Г 
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open system 


type expe = 
T sus of expe * expe 
| Prod of expe * expe 
| const or system.Double 
| Yat of string 


let eval env expe = 


type expe = 
| sum of expe * expe 
| Prod of expe * expe 
| Const ог System.Double 
| Var of string 


let eval env expe = 


| Var v => Map. 
let x = var "x 
Let Sato) = Beoate al 


Let env = Map.add "x" 5.141 


ao Console, wei talis 


lat roc deriv vae expe = 
match expe with 
| Proatel, por 
| Var v -> іш 
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| Prod об шіре " Expr 
| const of float 


(Evaliate 1 float -> 
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type Брг = 
| Sum of mupe * gape 
| Prod of mepe * вре 
| Var of string 
and Unaryoperat: 
( Evaluate : ficat 
Differentiate: Exp 
Print: Rutfar.t 
Vamos steing 
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HyLibrary.piete 
MyLibrary Differentiate. Expr: 
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Program 


tatic void PainistringL] args) 
й 
Expr є = Diff.cos (Diff. sin Diff .Expr.Const(3.14 


> Static analysis of programs, 


> Program transformation 


> Compilers 


+ Verification. model checking, theorem. 
proving 
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МІ in Microsoft 
2 Static Driver Verifier (Core OS) 


2 High-level model of FRS (Core File 
Services) 


з 
> Zap theorem ргоуег (MSR) 


2 KIS race condition finder (MSR) 


Profilers, 


Optimizers etc. 


Debuggers 


F# within .NET 


CLR GC, 
JIT, NGEN ete, 


Windows. Fors. 
‘Avalon etc. 


ASP.NET 


System.l/O 
Net eto. 
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Debuggers 


F# within .NET 


CLR GC, 
JIT, NGEN etc. 


Windows. Forms 


ASP МЕТ 
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F# as a Language 
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OCaml FR 


F# as a Language 
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F# as a Language 
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F# as aLanguage 


OCaml | +toois РЕ 


+ tools 


Лининг 
Orthogonal & Unified Constructs 


> Tuples = multiple arguments = 
multiple returns 


let args (1,2,3) ^ 
let f (a,b,c) = (a+b , b+c, a+b) 
let x,y,z = f(f(f args) 


do printf "res =%d,%d,%d" x y z 
гез = 1716.15" 
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Orthogonal & Unified Constructs 


> Tuples = multiple arguments = 
multiple returns 


Tuples 
аз баға 


let args = (12,3) ^ 
ШШЕ. let f (a,b,c) = (arb , bre, a+b) 


let худ = ҚҰ args) 


Multiple 
Returns 


do printf "res =%d,%d,%d" x y z 
res > 1716.15" 


Orthogonal & Unified Constructs 


> Let "let" simplify your life... 


Orthogonal & Unified Constructs 


> Let "let" simplify your life... 
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Orthogonal & Unified Constructs 


> Let "let" simplify your life... 


Bind a static value 
Bind a static function 


Bind a local value 


Bind an local function 


Orthogonal 8 Unified Constructs 


> “let” + "capture": sophisticated operations in 
sophisticated contexts... 


let readBinary(inputStream) = 
let read () = inputStream ReodByte in 
let smallFormat = (read() == 0x2) in 


_ let readOneRecord() = 


if (smallFormat) then read() 
else .. т 


readOneRecord(); 
readOneRecord(): 


Orthogonal & Unified Constructs 


> "let" + "capture": sophisticated operations in 
sophisticated contexts... 


Operation in 
context 


let readBinary(inputStream) = 
let read () = input Stream ReodByte in 
let smallFormat = (read() == 0x2) in 


© let readOneRecord() = 


if (smallFormat) then read() 
else .. т 


readOneRecord(); 
readOneRecord(): 
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Orthogonal & Unified Constructs 


> "let" + "capture": sophisticated operations in 
sophisticated contexts... 


Operation in 
context 


let readBinary(inputStream) = 
let read () = inputStream ReodByte() in 
let smallFormat = (read() == 0x2) in 


Operation in 
richer context 


“¡let readOneRecord() = 


if (smallFormat) then read() 
else .. in 


readOneRecord(); 
readOneRecord(): 
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Orthogonal & Unified Constructs 


3 "let" + "capture": sophisticated operations in 


sophisticated contexts... 


Operation in 
context 


let readBinary(inputStream) = 
let read () = inputStream ReodByte() in 
let smallFormat = (read() == 0x2) in 


Operation in 
richer context 


“¡let readOneRecord() = 


Я (smallFormat) then read 
else ... in 


Use operations in 
rich context 


readOneRecord(): 
readOneRecord(): 
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>» Immutability the norm... 


Orthogonal & Unified Constructs 


> Immutability the norm... 
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Orthogonal & Unified Constructs 


> Immutability the norm... 


let дата = 3 [type data = 
(Мате: string; 
до data :< 4 Size: int; 


Items: Mopsstring,string» ) 


| let NewData(name items) = 
( Мате=пате; 

Size-Map.size items; 

Items=items ) 
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Orthogonal & Unified Constructs 


АП F# data is 
immutable by 
default 


> Immutability the norm... 


let дата = 3 | type data = 
( Name: string; 
do data := 4| Size: int; 
Items: Map<string,string> ) 


Simple values may let NewData(name items) - 
по? be changed ( Мате=пате; 


Size=Map.size items; 
Items=items } 
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In praise of immutability 
З Immutable objects can be relied on 
> Immutable objects can transfer between threads 
-> Immutable objects can be aliased safely 


> Immutable objects сап be optimized 


Orthogonal & Unified Constructs 
> Fit is a functional language 
> Ей is an imperative language 


> F# is a mixed functional/imperative 
language 


> F# is not Haskell. Loops encouraged. 
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Orthogonal & Unified Constructs 


3 Function values simplify and unify 
.. iteration 
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3 Function values simplify and unify 
.. iteration 
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Orthogonal & Unified Constructs 


3 Function values simplify and unify 
.. iteration 


Imperative and 
functional versions 
encouraged 
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Orthogonal & Unified Constructs 


Function values simplify and unify 
.. iteration 


Structural and 
Logical 


Imperative and 
functional versions 
encouraged 


transformations 
made easy 
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Orthogonal & Unified Constructs 


Function values simplify and unify 
...extension 


type UnaryOperator = 
{ evaluate: (float > float);  // evaulation function 
differentiate: (expr > expr); // symbolic differentiation function 
name: string ) // identity 
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Orthogonal & Unified Constructs 


3 Function values simplify and unify 


...extension 
type UnaryOperator = 
{ evaluate: (float > float); // evaulation function 
differentiate: (expr > expr); // symbolic differentiation function 
name: string ) // identity 


let sinop = ( evaluate=sin; 
differentiate=Cos: 
name-"sin" ) 
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Orthogonal & Unified Constructs 


3 Function values simplify and unify 
„extension Virtual method: 


ension points) ШЙ 


type UnaryOperator = 
С evaluate: (float + float); // evaulation function 
differentiate: (expr > expr); // symbolic differentiation function 
name: string ) // identity 


let sinop = ( evaluate=sin; 
differentiate=Cos; 
name="sin" } 
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3 Function values simplify and unify 
...extension Virtual method: 
xtension points) — 


type UnaryOperator = 
{ evaluate: (float + float); // evaulation function 
differentiate: (expr > expr); // symbolic differentiation function 
пате: string ) И identity 


let sinop = ( evaluat 


Subclass? What 
subclass? 
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Orthogonal 8 Unified Constructs 


3 Function values simplify and unify 
...extension 


irtual metho 
(extension points) 
type UnaryOperator = 


{ evaluate: (float + float): // evaulation function 
differentiate: (expr > expr); // symbolic differentiation function 
пате: string ) И identity 


let sinop = ( evaluate 
Caveat: Extensible 


extension is still 
hard 


Subcless? What 
subclass? 


Orthogonal & Unified Constructs 


> Type parameters 

> Discriminated unions [== 
> Pattern matching 

> Type inference 


>» Recursion (Mutually-referential objects) 


Orthogonal & Unified Constructs 


> Type parameters ше 

> Discriminated unions "ее 
> Pattern matching 

> Type inference КЕСЕ 


> Recursion (Mutually-referential objects) 
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Less is More? 


> Fewer concepts = Less time in class design 
> No null pointers’ 

> Far fewer classes and other type definitions 
> No constructors-calling-virtual-methods and 


other OO dangers 


1 except leaking across from МЕТ APIs 


_ — 
Problems are problems 
— Unmanaged resources (IDisposable) 
> Exceptions 
3 ИО, avoiding blocking, concurrency 
> API design 


Э Complex software is, well, complex... 
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F# Observations 


> ЕЙ gives you the tools to concentrate on the ` 
algorithmic complexities of symbolic processing 


> Fitis: 
excellent for using NET libraries 
= excellent for writing ML libraries 
ок at making ML libraries usable from .NET 


> So Ше niche seems to be for writing sophisticated 
applications 
probably with some use of NET components. 
probably with some symbolic processing 
= probably with some components written in СЕ 


The F# challenge: make it fit 
with .NET in a deeply practical 
way without losing the essential 
goodness of ML programming 
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Connecting F#to .NET 


Profilers, 
Optimizers etc 


攻 


і Sochets әс 
ASP NET J 


Outward Interop 


3 A very nice *." notation 


> Quite similar to C# 


> Delegates created using function values 


Outward Interop 


> Object expressions == closures for objects 


let myForm title n = 
(new System Windows.Forms.Form() as base 


(args): 
Console. WriteLine ("OnResize, args = (0)\n", args) 


3 Overriding only 


3 Orthogonal: type inference, capture, mutually 
recursive, nested 
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Outward Interop 


> Object expressions == closures for objects 


let myForm title n = 
(new System Windows Forms Рог) os base 


(args): 
Console. WriteLine COrPaint\n) — З 


(args): 
Console. WriteLine ("OnResize, args = (0)\n", args) 


3 Overriding only 


Э Orthogonal: type inference, capture, mutually 
recursive. nested 


Inward Interop 


Inward interop == 
predictable, stable 


i compiled forms 


e.g. Fit types 

have predictable 

compiled forms as 
classes 


Inward Interop 
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ЕЙ values compile 
to static functions 
and/or static 
fields 
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Inward Interop 


> Inward Interop is essential for many | 
reasons, e.g. componentization, testing, 
profiling 


> No other ML implementation in the world 
has it 


> Inward interop gives you full access, but is 
sometimes a little awkward from СЖ 


> Room for extensions to what is there 


Що 
What else does F# offer? © 


> Libraries galore 
= GUIs, Network, Speech, Graphics 
З Tools galore 


a CPU Profiling. Memory Profiling, Debugging. 
Visual Studio integration 


> СЕ next door 
= Fantastic interop with C and COM 
> Components 
з Can build versionable, binary compatible DLLs 
> Multi-threading that works 
а Even OCaml has problems here 
No significant runtime components 
з GC etc. is not part of the package 


_ шш 
What else does Ей offer? © 


> Libraries galore 

> GUls, Network, Speech, Graphi дыш ЧЕП 
> Тоов galore 

а CPU Profiling. Memory Profiling. Debugging. 

Visual Studio integration 

> СЕ next door 

Fantastic interop with C and COM 
> Components 

о Can build versionable, binary compatible DLLs 
> Multi-threading that works 

а Even ОСаті has problems here 
No significant runtime components 

а GC etc. is not part of the package 


Common Language Runtime 
Loader JIT 


Verifier 


F#, t & .NET Generics 
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FA, the CLR 8 МЕТ Generics 


A ` 


Fitis a related project 
that works with or 
E without generics 


Common Language Runtime 
Loader JIT 


Verifier 
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F# v1.0 


> Very stable core language and compiler 
, Some interesting language work will go on 


around the edges, e.g. -modules-without- 
ML-modules 
> Being used by Zapato & SDV & many 
others 


> “6000 downloads/year 

> VisualStudio 2005 Beta 1 integration 
> ML compatibility library 

Samples etc. 

> Tools: Lexer, Parser Generators 


F# & Research 


3 Practical programming in ML still raises 
many interesting language design 
questions 


> ед. mutually recursive initialization that 
compensate correctly when failure occurs 
half-way through 


> F#isa pes place to conduct this 
researci 
з easy to code examples of real-world practical programming 
2 a simple clean language to extend 


http://research.microsoft.com/projects/fsharp 
autogroup: mailto:f sharp 
\\cam-01-srv\dfsroot\projects\fcom\releases 


